home *** CD-ROM | disk | FTP | other *** search
/ Especial Multimedia / Especial Multimedia.iso / Multimed / Herra / TIMWIN.ZIP / INIDEMO.CMD < prev    next >
OS/2 REXX Batch file  |  1993-09-22  |  640b  |  31 lines
  1. ; inidemo  --  initializing the system for the demo version
  2. ;
  3. file timdemo = "timwin.hlp"
  4. char naam[20]
  5. IMAGE img
  6. int imnum = 0
  7.  
  8. repeat       ;make all windows images visible
  9.   fprint naam 0 "%s" (getim (WIN_BIT+I256) (++imnum))  ;search 256x256 win images
  10.   img = naam
  11.   if  naam[0] != 0  
  12.     show img 1
  13.     dest img
  14.   endif
  15. until naam[0] == 0
  16.  
  17. ;if frame grabber present, make first 256x256 image active
  18. fprint naam 0 "%s" (getim (DIS_BIT+I256))  ;256x256 FG-image
  19. img = naam
  20. if  naam[0] != 0
  21.   dest img
  22.   show img
  23. endif
  24.  
  25. /init
  26.  
  27. wig             ;test image in active image
  28. help timdemo "TIMWIN Demo" 1
  29. stop
  30.  
  31.